3	K=X
	A=RPOS(1,K)
	B=RPOS(1,K+1)
	R2=A+(B-A)*(X-K)
	IF(IX22.NE.0)RETURN
C GO BACK IF SETTING POSITION WITH 'CP'
	VZ=RN(ISET+9)
	IF(VZ.GE.6.0)GO TO 55
C NEXT FOR VERY SHORT SYLLABLES -- SHIFTS THEM TO LEFT
	K=RN(ISET+2)
CC	A=1.5615+1.-((VZ-2.16)*1.5625)/6.0
CC	R2=R2+(1.+(6.0-VZ)/3.84)*RSTJ2
CCC	A=2.5625-(VZ-2.16)*.2604
	A=2.5625-(VZ-2.16)*.2
	R2=R2+(A-VZ/3.84)*RSTFAC(K)
55	RN(ISET+3)=R2
	IF(KK.GT.0)GO TO 5
C  NEXT FOR PAIRS OF NUMS.


MARKZ.F4 :::::::

30	IF(JREP)CALL MARKS(RA)
	RB=0
	J=J+1
CXXX	IF(RA.GE.30.AND.RA.LE.35)VX(J+1)=0
C THIS  ↑↑↑↑ CATCHES FINGERING NUM.(0-5)  IT WAS READ IN MARKS.



	1 /A2Z/IAZ(5),LEF
	DO 1500 K=1,72
	J=INP(K)
	IF(J.NE.LEF)GO TO 1
CHECK TO SEE IF A NUMBER FOLLOWS 'F' (FINGERING)(F0=FU  F5=FZ)
	L=INP(K+1)
	IF(ISNUM(L).LT.0)GO TO 1
	INP(K+1)=IAZ(NALF(L)+21)
1	IF(J.EQ.ISTAR)GO TO 15  
1500	IF(J.EQ.ISEMI)GO TO 500


22	IF(ML.GE.LEU.AND.ML.LE.LEZ)RA=30+(ML-LEU)/536870912
C  TYPE /2 F0/6 F5/ FOR FINGERING NUMS. 0-5   FU=F0, FZ=F5
	GO TO 18
88	RA=45


MS.F4*******

1350	IF(I2.EQ.LRR)GO TO 1360
C NOW TYPE 'PR' TO PRINT PARAMETER LIST
	IF(I2.EQ.LZZ)GO TO 1370
C PIZZ
	R5=42